[LegacyColorValue = true]; 

{ TSMHerrickPayoff: The Herrick Payoff Index
  Copyright 1999, P.J.Kaufman. All rights reserved.
}
  inputs:  length(20);

  plot1(TSMHerrickPayoff(length),"TSMHPI");